home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ROM 2
/
ROM 2.adf
/
Install
< prev
next >
Wrap
Text File
|
1992-09-02
|
2KB
|
105 lines
; $VER: ROM-Install-Script v1.0 (30-11-94)
; Copyright © 1994 by EssEncE & The ROM Team
(complete 0)
(set OK 0)
(message "\n\n\n\n\nWelcome to the ROM Installation\n\n\n"
"Copyright © 1994 by Essence & The ROM Team")
(complete 10)
(set DestPath
(askdir
(prompt "Where should I install ROM?")
(help "\n ROM will be installed in the choosen path,\n"
" creating the directory 'ROM'.")
(default "SYS:")
)
)
(if
(askbool
(prompt "\n\nAre you sure, that ROM should be\n"
"installed in\n\n\n'"
DestPath
"'\n\n\n(A new directory called 'ROM' will be created,\n"
"where you will find the main executable\n"
"and all the necessary data files.)'")
(help "\n If you don't want to install ROM in the\n"
" choosen directory, select the NO Gadget.\n\n"
" If you think that the selected directory is\n"
" up to your tastes, then press YES.")
)
(set OK 1)
)
(if (= OK 1)
(
(complete 20)
(set FinalPath (cat (tackon DestPath "ROM")))
(set DataPath (cat (tackon FinalPath "DATA")))
(makedir
(FinalPath)
(infos)
)
(makedir
(DataPath)
(infos)
)
(askdisk
(prompt "\n\n\n\nPlease insert the first ROM disk\n\n"
"'ROM2a'\n\n"
"in any drive")
(help "\n Only one thing:\n"
" INSERT THE RIGHT DISK")
(dest "ROM2a")
)
(complete 30)
(copyfiles
(source "ROM2a:")
(dest FinalPath)
(pattern "(ROM_2)")
(optional "force")
)
(complete 40)
(copyfiles
(source "ROM2a:S")
(dest FinalPath)
(pattern "(ROM_2.info)")
(optional "force")
)
(complete 50)
(copyfiles
(source "ROM2A:")
(dest DataPath)
(pattern "ROM2_00.data")
(optional "force")
)
)
)
(complete 100)
(set default-dest DestPath)
(message "\n\nInstallation complete!\n\n"
"Now make sure to change the tool type variable\n"
"'FullPathName' of ROM_2.info, into\n"
Destpath)
(exit)